home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abh.d64 / sda-only.sda / SDA.MOD (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  2KB  |  57 lines
  1. 30 QT$=CHR$(34):POKE53281,0:POKE53280,11:PRINTCHR$(14):GOTO700
  2. 100 F$="R0:"+SDA$+"=BASE.ARC":POKE3,170
  3. 200 OPEN15,DN,15,F$:CLOSE15
  4. 300 PRINT"    [217]OUR [211][196][193] FILE HAS BEEN CREATED![146]"
  5. 500 FORI=1TO15:CLOSEI:NEXT:END
  6. 600 REM: SDA MODULE
  7. 700 PRINT"[147]              [211][196][193] [193][201][196] [205]ODULE[146]"
  8. 800 PRINT"  [208]LEASE KEEP [154][193][210][195] [193][201][196] V7.1 DISK HANDY!"
  9. 900 PRINT" [204]OCATE THE DISK(S) WITH THE FILES YOU "
  10. 1000 PRINT" WANT TO MAKE INTO AN [211][196][193]. [198]ILECOPY THE"
  11. 1100 PRINT" FILES ONTO A DISK WITH PLENTY OF ROOM."
  12. 1200 PRINT" [212]HIS WILL BE YOUR '[158]WORK DISK'. [193]LSO,"
  13. 1300 PRINT" FILECOPY THE FILE CALLED: [211][196][193].[205][204] ONTO "
  14. 1400 PRINT" THE '[158]WORK DISK'. [201]T'S ON THE...":PRINT"[154]            [193][210][195] [193][201][196] V7.1 [196]ISK"
  15. 1500 PRINT"       [208]RESS [158]8[146] OR [158]9[146] FOR A DIRECTORY"
  16. 1700 PRINT"       [193]NY OTHER KEY WILL CONTINUE."
  17. 1800 GET A$:IF A$=""THEN1800
  18. 1900 IFA$<>"8"ANDA$<>"9"THEN3300
  19. 2700 PRINT"[147]        [200]OLD DOWN [211][200][201][198][212] TO PAUSE."
  20. 2800 IFA$="8"THENPRINT"DIR A:":PRINT"":GL=500
  21. 2810 IFA$="9"THENPRINT"DIR C:":PRINT"":GL=500
  22. 2900 POKE631,13:POKE632,144:POKE633,67:POKE634,79:POKE635,78:POKE636,84
  23. 2910 POKE637,13:POKE198,7:END
  24. 3000 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
  25. 3100 GET A$:IF A$="" THEN3100
  26. 3200 GOTO600
  27. 3300 PRINT"[147]             [211][196][193] [193][201][196] [205]ODULE.[146]"
  28. 3400 PRINT"   [206]OW THAT YOU KNOW THE NAMES OF THE"
  29. 3500 PRINT" FILES TO BE [211][196][193]D, ANSWER THE FOLLOWING  QUESTIONS:"
  30. 3600 PRINT"[206]AME OF FINAL OUTPUT FILE":INPUTSDAF$:IFSDA$="" THEN RUN
  31. 3640 INPUT"[207]UTPUT DRIVE (8/9)";DN
  32. 3650 IFDN=8THENDN$="A"
  33. 3660 IFDN=9THENDN$="C"
  34. 3800 PRINT"[208]UT '[158]WORK DISK' IN [196]RIVE"DN
  35. 3900 PRINT"[197]NTER YOUR FILENAMES.":PRINT"[212]O [211][212][193][210][212] [207][214][197][210], USE FILENAME";
  36. 3910 PRINTQT$"\\\"QT$".       [213]SE "QT$"_"QT$" IN LIEU OF THE COLON."
  37. 4000 IF A=8 THEN4800
  38. 4100 INPUT "[198]ILE, PATTERN OR [158][210][197][212][213][210][206][146]";FI$(A)
  39. 4200 IF FI$(A)="" THEN4800
  40. 4210 IF FI$(A)="\\\" THENRUN
  41. 4300 FOR I=1 TO LEN(FI$(A))
  42. 4400 IF MID$(FI$(A),I,1)=" " THEN TE$(A)=TE$(A)+"?":GOTO4600
  43. 4450 IF MID$(FI$(A),I,1)="_" THEN TE$(A)=TE$(A)+":":GOTO4600
  44. 4500 TE$(A)=TE$(A)+MID$(FI$(A),I,1)
  45. 4600 NEXT
  46. 4700 A=A+1:GOTO4000
  47. 4800 IF FI$(0)="" THEN RUN
  48. 4900 OPEN15,DN,15,"C0:BASE.ARC=SDA.ML":CLOSE15
  49. 5000 C$="ARC/A "+DN$+":BASE NONAME INTRO":EX$=""
  50. 5100 FOR I=0 TO A-1
  51. 5200 EX$=EX$+" "+FD$(I)+TE$(I)
  52. 5300 NEXT
  53. 5400 C$=C$+EX$
  54. 5500 PRINT"[147] [157]";C$:POKE198,0:PRINT"":POKE3,1
  55. 5800 POKE631,13:POKE632,144:POKE633,71:POKE634,207:POKE635,49:POKE636,48
  56. 5900 POKE637,48:POKE638,13:POKE198,8:END
  57.